home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmptop.data
< prev
next >
Wrap
Text File
|
1987-01-17
|
5KB
|
238 lines
#(
#!
(lisp::in-package 'user::compiler)
compiler::*objects*
compiler::*constants*
compiler::*sharp-commas*
compiler::*global-funs*
compiler::*closures*
compiler::*local-funs*
compiler::*compile-time-too*
lisp::*eval-when-compile*
compiler::*top-level-forms*
compiler::*non-package-operation*
compiler::*reservations*
compiler::*reservation-cmacro*
compiler::*global-entries*
lisp::make-package
compiler::package-operation
lisp::in-package
lisp::shadow
lisp::shadowing-import
lisp::export
lisp::unexport
lisp::use-package
lisp::unuse-package
lisp::import
lisp::provide
lisp::require
lisp::eval-when
compiler::t1eval-when
compiler::t1
lisp::progn
compiler::t1progn
lisp::defun
compiler::t1defun
lisp::defmacro
compiler::t1defmacro
lisp::clines
compiler::t1clines
lisp::defcfun
compiler::t1defcfun
lisp::defentry
compiler::t1defentry
lisp::defla
compiler::t1defla
lisp::defvar
compiler::t1defvar
lisp::defconstant
compiler::top-level-macro
lisp::defparameter
lisp::defstruct
lisp::deftype
lisp::defsetf
compiler::t2defun
compiler::t2
compiler::t2defmacro
compiler::ordinary
compiler::t2ordinary
lisp::declare
compiler::t2declare
compiler::sharp-comma
compiler::t2sharp-comma
compiler::t2defentry
compiler::t2defvar
compiler::t3defun
compiler::t3
compiler::t3defmacro
compiler::t3clines
compiler::t3defcfun
compiler::t3defentry
compiler::*current-form*
compiler::*first-error*
"#.*CMPERR-TAG*"
system::|#,|
"Sharp-comma-macro is in a bad place."
"The package operation ~s was in a bad place."
compiler::*compile-print*
compiler::c1
"~s is illegal function."
compiler::*next-cmacro*
1
compiler::*vs*
0
compiler::*max-vs*
compiler::*clink*
compiler::*ccb-vs*
compiler::*level*
compiler::*compiler-output1*
compiler::*compiler-output2*
compiler::fun
compiler::*next-vv*
"The EVAL-WHEN situation ~s is illegal."
2
"The function name ~s is not a symbol."
compiler::*vars*
compiler::*funs*
compiler::*blocks*
compiler::*tags*
compiler::*special-binding*
compiler::ufun
compiler::*next-cfun*
compiler::proclaimed-function
10
compiler::proclaimed-arg-types
compiler::var
compiler::lexical
compiler::clb
(lisp::fixnum lisp::character lisp::long-float lisp::short-float)
lisp::object
compiler::info
compiler::*inline-functions*
compiler::proclaimed-return-type
(lisp::fixnum lisp::character lisp::long-float lisp::short-float)
"LI~d()"
100
:element-type
lisp::string-char
:fill-pointer
"LI~d("
"#~d)"
"#~d,"
compiler::*exit*
compiler::return-fixnum
compiler::return-character
compiler::return-long-float
compiler::return-short-float
compiler::return-object
compiler::*unwind-exit*
compiler::*value-to-go*
compiler::*sup-used*
compiler::*base-used*
lisp::fixnum
lisp::character
lisp::long-float
lisp::short-float
compiler::*next-cvar*
"local entry for function "
compiler::*tail-recursion-info*
compiler::*do-tail-recursion*
compiler::*compiler-push-events*
compiler::tail-recursion-mark
compiler::*safe-compile*
(lisp::fixnum lisp::character lisp::long-float lisp::short-float)
lisp::return
(lisp::return)
"function definition for "
"global entry for the function "
compiler::*compiler-check-args*
compiler::*space*
"CMPmake_fixnum"
"make_fixnum"
"code_char"
"make_longfloat"
"make_shortfloat"
""
"fix"
"char_code"
"lf"
"sf"
""
"int "
"unsigned char "
"float "
"double "
"object "
"The macro name ~s is not a symbol."
(lisp::return)
"macro definition for "
compiler::*last-label*
compiler::trash
compiler::dbind
compiler::set-dbind
compiler::set-loc
"The argument to CLINE, ~s, is not a string."
"The first argument to defCfun ~s is not a string."
"The second argument to defCfun ~s is not a number."
"Special form ~s is not allowed in defCfun."
lisp::quote
"The defCfun body ~s is illegal."
"The defCfun body ~s is illegal."
"C function defined by "
3
"The function name ~s is not a symbol."
(lisp::object lisp::char lisp::int lisp::float lisp::double)
"The C-type ~s is illegal."
(lisp::void lisp::object lisp::char lisp::int lisp::float lisp::double)
"The C function specification ~s is illegal."
"function definition for "
lisp::void
(lisp::object lisp::char lisp::int lisp::float lisp::double)
"The C variable name ~s is illegal."
"The C variable specification ~s is illegal."
"local function "
"LC"
"L"
compiler::*initial-ccb-vs*
(lisp::return)
compiler::t1expr
compiler::ctop-write
compiler::make-inline-string
compiler::wt-global-entry
compiler::rep-type
compiler::t1ordinary
compiler::add-load-time-sharp-comma
compiler::parse-cvspecs
compiler::t3local-fun
compiler::cmperr
compiler::cmpwarn
compiler::cmp-eval
compiler::wt-data-package-operation
compiler::print-current-form
compiler::cmp-macroexpand-1
compiler::cmp-expand-macro
compiler::wt1
compiler::wt-h1
compiler::too-few-args
lisp::load
lisp::compile
lisp::eval
compiler::c1lambda-expr
compiler::add-object
compiler::type-and
lisp::make-array
compiler::add-symbol
compiler::reset-top
compiler::wt-comment
compiler::c2expr
compiler::c2lambda-expr
compiler::c1dm
compiler::c2dm
compiler::c1expr
lisp::char
lisp::int
lisp::float
lisp::double
)